00100	REQUIRE "[]<>" DELIMITERS ;
00200	
00300	IFC NOT DECLARATION(TERNAL) THENC
00400	DEFINE
00500	TERNAL = [EXTERNAL],
00600	PRELOAD = [COMMENT] ;
00700	ENDC
00800	
00900	DEFINE
01000	
01100	IFK = [ENDC IFC],
01200	THENK = [THENC IFC FALSE THENC],
01300	PRIVATE = [FORWARD],
01400	PUBLIC  = [FORWARD INTERNAL ELSEC EXTERNAL ENDC IFC TRUE THENC],
01500	PROCEDURES = [IFC FALSE THENC],
01600	FINISHED = [ENDC] ;
01700	
01800	DEFINE PROGRAM(NAME,CLANNAME) =
01900	[
02000	DEFINE
02100	NAME =
02200	IFC EQU(CVMS(CLANCOMPILEFILE), "CLANNAME") THENC
02300		[ENDC IFC TRUE THENC]
02400	ELSEC	[ENDC IFC FALSE THENC]
02500	ENDC
02600	] ;
02700	
02800	PROGRAM(ALGOL,ABC) ;
02900	PROGRAM(AREAS,ABC) ;
03000	PROGRAM(BLOCK,ABC) ;
03100	PROGRAM(CNTRS,ABC) ;
03200	PROGRAM(COLMS,ABC) ;
03300	PROGRAM(COMMD,ABC) ;
03400	PROGRAM(CTRLC,ABC) ;
03500	PROGRAM(DATUM,DEF) ;
03600	PROGRAM(ERROR,DEF) ;
03700	PROGRAM(FILES,DEF) ;
03800	PROGRAM(FILLR,DEF) ;
03900	PROGRAM(FONTS,DEF) ;
04000	PROGRAM(PAGES,PQR) ;
04100	PROGRAM(PASTE,PQR) ;
04200	PROGRAM(PORTS,PQR) ;
04300	PROGRAM(QUADS,PQR) ;
04400	PROGRAM(RESPS,PQR) ;
04500	PROGRAM(RUNP2,PQR) ;
04600	PROGRAM(SORCE,STUVX) ;
04700	PROGRAM(TEMPL,STUVX) ;
04800	PROGRAM(TOKEN,STUVX) ;
04900	PROGRAM(USERS,STUVX) ;
05000	PROGRAM(VARBL,STUVX) ;
05100	PROGRAM(VERTI,STUVX) ;
05200	PROGRAM(XREFS,STUVX) ;
05300	
05400	REQUIRE "GLOBE" SOURCE!FILE ;
05500	COMMENT GLOBAL DEFINES AND VARIABLES ;
05600	
05700	REQUIRE "PROCS" SOURCE!FILE ;
05800	COMMENT EXTERNAL AND FORWARD PROCEDURES ;
05900	
06000	DEFINE
06100	
06200	IFK = [IFC],
06300	IFSITE = [IFC],
06400	THENK = [THENC],
06500	SITE(DUMMY) = [],
06600	$ = ["],
06700	# = [],
06800	PUBLIC = [INTERNAL],
06900	PRIVATE = [ ],
07000	PROCEDURES = [ ],
07100	FINISHED = [ ],
07200	BEGOF(NAME) = [ ],
07300	ENDOF(NAME) = [ ],
07400	CLANFINISHED = [ END "VARIAB" ] ;